Fix handling of negative ordinates

diff --git a/an1.c b/an1.c
index 17d3418c0bd7660d47908ec00ae292560136958e..05e98048929152b51ec12b15d6aafb14cb8ddb41 100644 (file)
--- a/an1.c
+++ b/an1.c
@@ -205,14 +205,14 @@ Skip(FILE * f,
 static double
 DecodeOrd( long ord )
 {
-       return (double)(0x80000000-ord)/(0x800000);
+       return ((double)(long)(0x80000000L-ord))/(0x800000);
 }
 
 static long
 EncodeOrd( double ord )
 {
-       unsigned long tmp = ord * 0x800000;
-       return 0x80000000UL-tmp;
+       long tmp = ord * 0x800000;
+       return 0x80000000L-tmp;
 }
 
 static int